home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 1 / PC Actual CD 01.iso / share / dos / graficos / plydat14.arj / TCUBIC.PI < prev    next >
Encoding:
Text File  |  1992-02-04  |  731 b   |  31 lines
  1. # Generic Polyray input File
  2. # Polyray input file: Alexander Enzmann
  3.  
  4. # Set up the camera
  5. viewpoint {
  6.    from <0, 5, -5>
  7.    at   <0, 0,  0>
  8.    up   <0, 1,  0>
  9.    angle 30
  10.    resolution 160, 160
  11.    }
  12.  
  13. # Get various surface finishes
  14. include "colors.inc"
  15.  
  16. # Set up background color & lights
  17. background black
  18. light <10, 10, -20>
  19.  
  20. # A drop coming out of water? This is a curve formed by using the equation
  21. # x = 1/2 y^2 (y + 1) as the radius of a cylinder having the y-axis as
  22. # its central axis.
  23. object {
  24.    polynomial x^2 + z^2 - 0.5*(y^3 + y^2)
  25.    root_solver Ferrari
  26.    bounds object { sphere <0, 0, 0>, sqrt(3) }
  27.    clips  object { box <-1, -1, -1>, <1, 1, 1> }
  28.    rotate <30, 0, 0>
  29.    shiny_red
  30.    }
  31.